home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Libraries / SAT 2.4.0 / SAT / SAT Think Lib ƒ / Compatibility / SetClikLoopGlue.p < prev   
Encoding:
Text File  |  1996-10-06  |  488 b   |  19 lines  |  [TEXT/PJMM]
  1. {Code for implementing glue routines for InterfacesUI. So far, you only need this if you need to}
  2. {make multi-compiler code (code that compiles in both Think Pascal 4.0.2 and CodeWarrior) that}
  3. {uses TESetClickLoop.}
  4.  
  5. unit SetClikLoopGlue;
  6.  
  7. interface
  8.     type
  9.         TEClickLoopUPP = ProcPtr;
  10.     procedure TESetClickLoop (clikProc: TEClickLoopUPP; hTE: TEHandle);
  11.  
  12. implementation
  13.  
  14.     procedure TESetClickLoop (clikProc: TEClickLoopUPP; hTE: TEHandle);
  15.     begin
  16.         SetClikLoop(clikProc, hTE);
  17.     end;
  18.  
  19. end.